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MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 
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RR RR MM MM 335333 PP 000000 SSSSSSSS SSSSSSSS EEEEEEE 

LL IIIII] SSSSSSSS 
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LL I] SS 

LL I] SS 
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MODULE RM3POSSEQ (LANGUAGE (BLISS32) , 
oe = 'v04-000' 
BEGIN 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE te MAY BE USED AND COPIED 
NLY | RDANCE E_ TERM ae. C E 


'® TRANSFERRED. 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 

is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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i ABSTRACT: 
O03 Routines to position sequentially to the next record 
0036 1: 
3 ENVIRONMENT: 
VAX/VMS Operating System 
loo 
AUTHOR: Todd M. Katz CREATION DATE: 23-Jun-1982 


| 
'e¢ 
' 
FACILITY: RMS32 Index Sequential File Organization 
| 
| 
| 
| 
| 
| 
MODIFIED BY: | 

| 
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1 

i 

i 

i 

' 

i v03-016 TSK0001 Tamar Krichevsk 15-Jun-1983 
34 Change addressing mode of RESRU. RECLAIM to long relative. 
3 i v03-015 MCNO002 Maria del C. Nasr 24-Mar-1983 
37 } More Linkages reorganization. 
55 1 | vO3-014 TMKO009 Todd M. Katz 11-Mar-1983 
2$ : Make sure that all bucket locks are taken out as exclusive 
5 ! whenever the possibility exists that some reclamation maybe 
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RM3POSSEQ 1b-Se -1984 01:56:09 AX-11 Bliss=32 V4.0-742 
v04-000 12-Sep-19 4 95589: 92 AMS SREIRM POSSEQ.B32;1 
; 0058 1! done. Reclamation is possible whenever the positioning is by 
;. 0059 1! alternate key of reference, or whenever the file has been 
3 re BRee i write accessed and is Recovery Unit Journallable. 
es R206 a v03-013 MCNOO01 _. Maria del C. Nasr 28-Feb-1983 
; o7 Ope? : Reorganize Linkages 
s 0065 1! v03-012 TMKO008 Todd M. Katz 24-Feb-1983 
; 66 0066 1! ix a bug in and add several performance enhancements to 
it ar 0067 1! RMSF IND_NONDEL. The bug was that when this routine exhausts the 
; 0068 1! current bucket in its search for a non-deleted primary data | 
>; 69 0069 1! record and continues with the next bucket it should be resetting 
= 0070 1! IRBSL_LST_NCMP to point to the first record in the next bucket 
ee 0071 1! when primary key compression is enabled. Because it was not, 
oo 0072 1! when the time came to re-expand the key of the non-deleted 
; 0073 1! primary data record positioned to, this key expansion was done 
: 0074 1! incorrectly. The enhancements consist of making sure as RMS 
: ie i) : : scans the current bucket for a non-deleted primary data record 
. 0077 1! 
; oC 0078 1! v03-011 TMKO007 Todd M. Katz _ 17-Jan-1983 
ee. , 0079 1! Add support for Recovery Unit Journalling and RU ROLLBACK 
: & 0080 1! Recovery of ISAM files. supeor’ involves modifications to 
3 3} see : RMS$POS_SEQ and RMS$FIND_NONDEL. 
; & 0083 1! The purpose of the routines within this module is to find the 
> 84 0084 1! next non-deleted primary data record sequentiaily. If during | 
:. oe 0085 1! its search RMS encounters records that are marked RU_DELETE, it 
;  =86 0086 1! will try and delete them for good at this time provided it has 
cel ar 0087 1! write access to the file and the Recovery Unit in which they 
; 4 Bose : } were deleted has completed successfully. 
; 0090 1! if RMS is able to delete a prspery data record marked RU_DELETE, 
. a 0091 1! then RMS proceeds to continue loo ing for a non-deleted primary 
; Pe 0092 1! data record just as if it had encountered a deleted record in 
; 95 0093 1! the first place. Likewise, if RMS is unable to delete a record 
; «94 0094 1! that is marked RU_DELETE because it does not have write access 
, 0095 1! to the file, it oycesy continues its search with the next 
; % 0096 1! record. However, if RMS is unable to delete the record for good 
; 0097 1! because the Recovery Unit in which it was marked RU_DELETE has 
; 0098 1! not successfully terminated, then RMS returns this record as if 
; 299 0099 1! t was the next non-deleted primary data record, and lets a 
; 100 0100 1! higher level routine decide whether or not to wait for the 
: 101 0101 1! Recovery Unit in which the record was deleted to complete, or to 
3 138 p08 ' return an error to the user. 
> 104 0104 1! RMS will also re-format os records that are marked RU_UPDATE 
: 105 0105 1! and are in a special format provided the stream has write access 
: 106 0106 1! to the file, and the Recovery Unit in which the record was 
: 34 344 : } updated has terminated. 
; 109 0109 1! v03-010 TMK0006 Todd M. Katz 09-Nov-1982 
: 110 0110 1! The routine RMSFIND_SIDR never returns an end-of-file error so 
: iW abe ' remove all references to this particular error. 
; 118 6113 1! v03-009 TMKOOOS — Todd M. Katz 20-0c t-1982 
3 (114 0114 1! An infinite loop existed in RMS$POS_SEQ. When a search must be 
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made for the current primary data record by calling 
RMSCSEARCH_TREE and duplicates are allowed, then the duplicate 
chain is searched for the current record. ff the first duplicate 
in the chain was not the current record, then RMS was assuming 
that if it called RMSCSEARCH_TREE, this routine would position 
to the next record, and return status indicating whether it. 
too was a duplicate. This assumption is incorrect. The routine 
RMSCSEARCH_TREE works as follows: If the routine 
RMSCSEARCH_TREE is called with REC_ADDR pointing to a place in 
a bucket, whose BDB's address is saved in IRBS$L_CURBDB, then 
RMSCSEARCH_TREE determines whether or not the key of this 
record matches the key in keybuffer 2 according to the search 
characteristics. Thus, this routine does not position RMS to the 
very next record, which what was being incorrectly assumed, but 
just checks out the key of the current record. The fix is to 
explicitely position to the next erinery data record if the 
record Current ty ositioned to is not the current record, before 
calling RMSCSEARCH_TREE to see if this record is a member of the 
duplicate chain. 
| 
| 


v03-008 TMKO004 Todd M. Katz 19=0ct-1982 ; 
I have made two changes to the routine RMSPOS_SEQ. First, if 
RMS was unable to position to any record using the current NRP 
inforuation, then RMS should rot be ig ee whether the record 
it has positioned to is a non-deleted RRV (because of course, 
RMS has not pos tt ‘ease to any record). At present, this check 
is made in RM$POS_SEQ, Second, RMS should not be releasing 
buckets, and then apt pg he) addresses within them. This also 
is currently taking place within RM$POS_SEQ. 


V03-007 TMK0003 Todd M. Katz 09-Sep-1982 | 
The field IRBSB_SRCHFLAGS is now a word in size. Fix all 
references to it. | 


} 
Add support for prologue 3 SIDRs. A change is required to. | 
RM$POS_SEQ. When positioning sequentially for the first time 
following a SCONNECT or SKEWIND. RMS wants to_position to 
the first non-empty bucket. Because prolgoue 3 SIDRs do not have | 
control bytes, RMS can't just check for a RRV record as its 
indicator of an empty bucket. It can only make this check for 
pereety data buckets. This change has been made. Furthermore, 
MS will also now check for an empty SIDR bucket (this was not 
being done) by checking the freespace offset pointer. 
| 


V03-006 KBT0296 Keith B. Thompson 24-Aug-1982 
Reorganize psects 


v03-005 TMK0002 Todd M. Katz 28-Jul-1982 

when posi stoning sequentially by alternate oer the routine — 
RMSFIND_SIDR is called to find the current SIDR, or to position 
to the next SIDR if the current SIDR has been deleted. If a. 
stream's current SIDR is the Last SIDR in the index, and it is | 
deleted " another stream, RMSFIND_SIDR returns the error | 
RMS$_RNF because it is unable to find any SIDR in the. 
greater-than-or-equal search of the file it makes (using as the 
search key the key of the current record) when it decides that 
the stream's current SIDR has been deleted. In this case 
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: \7¢ \7¢ 1! RM$POS_SEQ should convert this error into RMSS$_EOF and return ; 
: \t? \v? : it to Tndicate that the end of the file has beén reached. : 
: 175 0175 1: v03-004 TMK0001 Todd M. Katz 22-Jun-1982 | ; 
: 176 0176 1: Revised entire module. | : 
: 177 0177 1! 3 
: 178 0178 1 leans 3 
: 179 0179 +1 3 
; 180 0180 1 LIBRARY ‘'RMSLIB:RMS'; 3 
>; «6181 0181 1 $ 
: iss 310s 1 REQUIRE "RMSSRC:RMSIDXDEF'; 3 
: 18 Th 1 ’ 3 
> «6184 0248 1 ! Define default PSECTS for code 3 
>: «#185 OS83 . s 5 
; 6186 0250 1 PSECT 3 
s 187 0251 1 CODE = RMSRMS3(PSECT_ATTR), : 
: #188 OS2¢ 1 PLIT = RMSRMS3(PSECT “ATTR); $ 
3; «(189 0253 1 3 
; 190 0254 1 ! Linkages : 
3; «6191 0255 1! 3 
> 192 0256 1 LINKAGE : 
: 193 0257 1 L_PRESERVE1, : 
: 194 0258 1 _REC_OVHD, : 
; 195 0259 1  LISIDR FIRST. | 2 
> 196 0260 1 L-RABREG_457, | ; 
; 197 0261 1 L-RABREG_ 567, ; 
3; 4198 b506 1 L-RABREG_67, 3 
3 199 0263 1 3 
: 200 0204 «(1 ' Local Linkages : 
, ol 0265 1 ! | F 
; 202 0266 1 RLSLINKAGE = JSB () $ 
; 203 0267 1 : GLOBAL (R_IDX_DFN, R_REC_ADDR, COMMON_RABREG) ; : 
: 204 0268 1 3 
3 aus 0269 1 ! External Routines 3 
; 206 ve/0 1! | 3 
; 207 0271 1 EXTERNAL ROUTINE : 
; 208 0272 1 RMSCOMPARE _REC : RLSRABREG_67, $ 
: 209 0273 1 RMSCSEARCH_TREE : RL$RABREG_67, 3 
> 210 0274 1 _BY-RFA RLS$RABREG_67, : 
- aan 0275 1 RMSF IND BY_RRV RLSRABREG_67 3 
> 212 0276 1 RMSGET : RLSRABREG “457, : 
; 213 0277 1 RMSGETNEXT_REC : RLSRABREG_67, 3 
3 214 0278 1 RMSRECORD_TD : RLSRABREG 67, é 
3; 215 S444 1 RMSRECORD VBN : RLSPRE SERUE 3 
3; 216 0280 1 RMSREC_OVHD LS$R 3 
: 217 0281 1 RMSRLSBKT : RLSPR RESER vel, | ; 
: 218 OSes 1 RMSRU_RECLAIM : RLSRABREG_ 67° ADDRESSING_MODE( LONG_RELATIVE ), é 
: 219 028 1 RMSSEARCH SIDR : RLSRABREG 67 3 
: 220 0284 1 RMSSIDR_FIRST : RL$SIDOR FIRST, : 
: $! p68 ' RMSSRCH_BY_KEY : RLSRABREG_567; ; 
: $55 0589 1 ! Define a local macro to return on error and : : 
; Sse S434 : to change a 'RNF‘ error to ‘EOF’ ( this is seq. proccessing ) : 
; 286 $386 1 MACRO : 
.- wer M 594 1 RET_ON_ERR_EOF (X) = 3 
; 228 ™ 0292 1 “(RETURRA _ON_ERROR(X, é 
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4. | 
v04 RMSCHECK_RRV 14-Sep-1984 RMS. SRCIRM possta.832; | voi 
| 


; ¢ 95 1 XSBTTL ‘RMSCHECK_RRV' ; 
; Z 38 ! ROUTINE RMSCHECK_RRV : RLSLINKAGE = : 
: 235 0298 1 | : 
: $ 8 + : FUNCTIONAL DESCRIPTION: 3 
: 238 0301 1! This routine compares the RRV pointer of the record RMS is currently | : 
; 239 0 8 - positioned to with the RFA address of the current record, and returns 3 
; 240 0305 1! the result of that match verifying whether or not the two are one and | ; 
> 241 0304 1! the same - ie the record RMS iS currently positioned to is the current : 
: seg Bene : : record. | : 
; zu 0307 ' CALLING SEQUENCE: ; 
; 346 0309 | BSBW RMSCHECK_RRV() | : 
; 348 O11 i INPUT PARAMETERS: | : 
: $36 O88 1 | ser | 
: $2) Sete : IMPLICIT INPUTS: 3 
: $33 0316 1! AB - address of the IRAB | : 
> 254 sir 3% IRB$W_POS_ID - ID of user data record for NRP positioning ‘ 
; $2? $34 } IRB$L_POS_VBN - VBN of user data record for NRP positioning ; 
3 337 0320 1 REC_ADDR - address of primary data record | ; 
; 259 O32 | OUTPUT, PARAMETERS : | : 
: 261 0324 1 | : 
: $06 O32 ! ctetty: sett sine ; 
: 264 0327 1: : 
: $e? tt84 ! : ROUTINE VALUE: : 
: 267 0350 i! SUC = the RRV of the current primary data record matches the current ; 
: 508 O33) ' records RrA address. : 
: 270 $335 1! 0 = the RRV of the current primary data record does not match the ; 
: 14 tte: ! current records RFA address. 3 
; 278 0536 i SIDE EFFECTS: ; 
i 303 0338 1 | AP is trashed. | : 
: 277 0340 1 i-- | ; 
: $9 O32 2 BEGIN | 
: 280 0308 | ; 
bate fn Pe op Pt 
: Hy 346 , ; 
s 84 tf EXTERNAL REGISTER : 
; 285 48 COMMON_RAB_STR, 3 
; 349 R_IDX_BFN_STR, : 
: tH beet $ R-REC_ADDR; : 
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aces REGISTER 


AP = 3; 


: A the two addresses match, return success. The record RMS is positioned 
i to o is in fact the current record. 


if (, JRABL INOS POS_IDJ] EQL RMSRECORD_ID()) 
_" MTRABLIRBSL -POS_VBN] EQL RMSRECORD_VBN()) 
RETURN RMSSUC() 


| sonal en, the record RMS is currently positioned to is not the current 
recor 


ELSE 
RETURN 0; 


END; ' { of routine } 
TITLE RM3POSSEQ 
IDENT \v04-000\ 
-EXTRN RMSCOMPARE_REC, RMSCSEARCH_TREE 
EX RMSF IND _BY_RRV 


: RE 
-EXTRN RMSREC_OVAD an SRE 

“EXTRN RMSRU_RECLAIM, al, Ae SIDR 
“EXTRN RMSSTOR. _FIRST. RMS$SRCH_BY_KEY 
.PSECT RMSRMS3,NOWRT, GBL, PIC,2 


0000 RMSCHECK_RRV: 
PUSHL 


“ 
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R4 
#3, AP 

BSBW § RMSRECORD Ip 

CMPZV #0, #16, TB6(IRAB), RO 


BSBW wesee cone _VBN 
CMPL 15 IRAB), RO 


MOVL - RO 
25 
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73 ZSBTTL_ 'RMSFIND_NONDEL' 


ROUTINE RMSFINDONONDEL (FLAG) : RLSLINKAGE = 


! 
FUNCTIONAL DESCRIPTION: 


This routine searches for the next next non-deleted primary data record | 

in the file. If the input parameter is 1, the search starts with the 

record RMS is currently positioned to, but if its 0, the search will 

start with the very next bucket. 
| 


If RMS encounters a record that is marked RU_DELFTE and the Recovery 
Unit in which the record was deleted it still active, then RMS returns 
this record as the next non-deleted primary data record and lets a 
higher level routine decide what to do. If the Recovery Unit in which 
the record was deleted has successfully terminated, then RMS will 
continue its search for a non-deleted primary data record after deleting 
this RU_DELETEd record (the latter if it has write access to the file). 


If RMS encounters a record that is marked RU_UPDATE and is in a special 
format then RMS will return this record as the next non-deleted primary 
data record after reformatting it. The reformatting is done if RMS has 
write access to the file, and the Recovery Unit in which it was updated 
has successfully terminated. 

CALLING SEQUENCE: 
BSBW RMSF IND_NONDEL () 

INPUT PARAMETERS: 


FLAG - if 1, start search with the record RMS is currently 
positioned to 
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IMPLICIT INPUTS: 
IDX_DFN - address of index descriptor 
IDX$B_DATBKTSZ - data bucket size 
IDXSV_KEY_COMPR - if set, primary key compression is enabled 


Se? at et et et et eo 


IFAB - address of IFAB 
IFS$V_RU - if set, file is Recovery Unit Journallable 
IFBSV_WRTACC - if set, stream has write access to the file 
| 


AB - address of IRAB 
IRBS$L_CURBDB - address of BDB for accessed data bucket 


REC_ADDR - address of record RMS is positioned to 
OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 


IRBSL_CURBDB - address of BDB describing primary data bucket 
IRB$SV_DEL_SEEN = set if deleted records encountered 
IRBSL_LST_NCMP = updated to last record with a 0 front compressed key 
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VOe-000 RMSF IND_NONDEL 1a-8ep-19 4 94:38: 4 AMS SREIRA POSSEQ.832;1 ° (3) 

; re ‘ 9 } : REC_ADDR - address of next non-deleted primary data record : 
: 0 4 ¢ 1 ! ROUTINE VALUE: 3 
: 71 4 1! $ 
. or 434 1! suc = found next non-deleted primary data record. : 
. 2 435 1! E - end-of-file encountered before record found. : 
: 374 04 $ 1! various 1/0 errors F 
: 375 8 1! 3 
; 376 438 1 ! SIDE EFFECTS: : 
: 377 0439 1! F 
3 78 440 1! SUC = REC_ADDR points to next non-deleted givy” data record, and $ 
; 379 441 1! IRBSL_CURBDB contains the address of the BDB describing the : 
; 380 rr 1! primary data bucket. 3 
3 $6) 0445 1! On all errors, no primary data bucket is accessed. 3 
3 S¢ 0444 1! If deleted reords are encountered the flag IRBSV_DEL_SEEN is set. : 
: $s 0445 1! IF RU_DELETEd records are encountered, they might have been deleted. : 
; $e Beto : : If RU_UPDATEd records are encountered, they might have been reformatted. : 
; 386 0448 1 !-- $ 
; 387 0449 1 3 
> 388 0450 BEGIN 3 
>; 389 0451 3 
: 390 bees BUILTIN PF 
: 391 045 AP; : 
; 0454 F 
; 0455 EXTERNAL REGISTER 3 
: 394 0456 ON_ RAB ‘ 3 
3 $32 0457 R_IDX_BFN_STR, : 
; 396 0458 R-REC_ADDR_STR; : 
; 397 0459 F 
; 398 0460 2 GLOBAL REGISTER : 
; 399 0461 COMMON_IO_STR; 3 
; 400 Beog ; 
: 401 046 LOCAL : 
: 402 0464 VBN; F 
: 403 0465 ; 3 
5 eee bees : Retrieve the address of the start of the primary data bucket. : 
: 406 468 BDB = .JRABCIRB$L_CURBDB); : 
: 07 0469 BKT_ADDR = .BDBCBDB$L_ADDR); : 
; 409 0471 ! If RMS is to start the positioning to the next non-deleted primary data 3 
: 410 Beg ! record with the next record, and not the record it is currently : 
3 411 be) ' positioned to, position to the next record. : 
: $19 474 : : 
: (41 0475 IF NOT .FLAG 3 
3 6414 47: THEN 3 
3 a12 of BEGIN 3 
: 417 47 ! If primary key compression is enabled and the key of the record is : 
; 418 480 !' zero-front compressed, then save the address of the record as the Last 3 
: $3? ret record encountered with a zero-front compressed key. | 3 
; ri 1 ri ? IF .1DX_DFNCIDXSV_KEY_COMPR] : 
3; 4 : 485 -(.REC_ADDR + RMSREC_OVHD(0))<8,8> EQLU 0 | 3 
3; 424 486 THEN : 
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IRABCIRBSL_LST_NCMP] = .REC_ADDR; 


RMSGETNEXT_REC(); 
END; 


' Continue to look for the next non-deleted record until either one is 
found, the end-of-file is encountered or some random I/0 error occurs. 


WHILE 1 
DO 
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BEGIN 

! Continue the search for a non-deleted primary data record in the 
' current bucket until either all the record are exhausted, or the 
first RRV is encountered. 

WHILE -REC_ADDR LSSA (.BKT_ADDR + .BKT_ADDRCBKTS$W_FREESPACE)) 


oo CNT -REC_ADDRCIRC$V_RRVI 


If RMS finds that the current record has been deleted within a 
Recovery Unit, then it subjects this record to further processing 
before Soc ieing whether to return this record as the next 
non-deleted primary data record, or to continue with the search. 
-REC_ADDRCIRC$V_RU_DELETE] 


BEGIN 


mints eomsaceem 


F 
HEN 


OCAL 
RECORD_ID : WORD, 
STATUS: 


RECORD_ID = .REC_ADDRCIRC$W_I1D); 


If the Recovery Unit in which the record was deleted is 
still active, or the file is not open for write access then 
RMS will not be able to recover any space from the current 
record; however, RMS aay still want to return this record as 
the next non-deleted primary data record. 


~— (STATUS = RMSRU_RECLAIM()) 


ad et me et et me 


F 
HE 
' RMS will return the current record as the next non-deleted 


! primary data record if this record was deleted by another 
} process whose Recovery Unit has not yet completed. 


STATUS<0,16> EQLU RMSERR(RLK) 

RETURN RMSSUC() 

! If the current record was deleted in a Recovery Unit by 
; the current process and tnis process is still within a 
‘ 


!' Recovery Unit; or, if RMS is able to lock this record but 
' has not write accessed the file, then RMS treats the 


If . 
THEN 
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' current record as if it actually is deleted. and 
positions to the next record so as to continue the search. 


ELSE 
BEGIN 

If index compression is enabled and the key of the 
record is zero-front compressed, then save the 
address of the record as the last record encountered 
with a zero-front compressed key. 

- 1DX_DFNCIDX$V_KEY_COMPR] 

-(.REC_ADDR + RMSREC_OVHD(0))<8,8> EQLU 0 

IRABCIRBSL_LST_NCMP] = .REC_ADDR; 


IRABLIRBSV_DEL_SEEN] = 1; 
RNSGETNEXT_RECT) ; 


' 
i 
i 
iF 


RMS was able to reclaim some space from the current 
record because the see | Unit in which the record had 
been deleted has successfully terminated. RMS will 
continue the search for a non-deleted primary data record 
with the next record in the file. 


CT me me ee mmm 
tod 


SE 
IF .RECORD_ID NEQU .REC_ADDRCIRCSW_IDJ 


N 
IRABCIRBS$V_DEL_SEEN] = 1; 
END 


! If the record RMS has positioned to is not deleted, then RMS has 
! found its next non-deleted primary data record, and can return 

' success. Otherwise, set the deleted record seen bit, and position 
! to the very next record in the primary data bucket. 
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ELSE 
IF NOT .REC_ADDRCIRCSV_DELETED) 
THEN 
BEGIN 
If the current non-deleted primary data record has been 
updated within a Recovery Unit then it maybe re-formated 
efore it is returned provided the file has been open 
for write access, and the Recovery Unit in which it was 
eas updated has completed successfully. 
“REC _ADDACIRCSY_RU_UPDATES 
4 SFARCIF ESN UATACC? 
RMSRU_RECLAIM(); 


RETURN RMSSUC(); 
END 


' 
i 
i 
iF 
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ELSE 
BEGIN 


! If index compression is enabled and the key of the record 
! is zero-front compressed, then save the address of the 
! record as the last record encountered with a zero-front 
compressed key. 
if + 1DX_DFNCIOXSV_KEY_COMPRI 
-(.REC_ADDR + RMSREC_OVHD(0))<8,8> EQLU 0 
IRABCIRBSL_LST_NCMP] = .REC_ADDR; 


IRABCIRBSV_DEL_SEEN] = 1; 
erase TERT RECT) 


: If all records in the current record have been exhausted without 
! find a non-deleted primary data record, and this is the very Last 


bucket in the horizontal chain, then return an error of end-cf-file. 


IF .BKT_ADDRIBKTS$V_LASTBKTI 
THEN 


BEGIN 
RELEASE (IRABCIRB$L_CURBDB)); 
— RMSERR (EOF) ; 


! If this is not the Last bucket in the horizontal chain, get the 
' very next bucket and continue the search for the next non-deleted 
primary data bucket in it. 


VBN = .BKT_ACDRCBKTS$L_NXTBKT); 
RELEASE (IRABCIRBSL_CORBDB)); 


! If the file is Recovery Unit Journallable and write accessed, then 
! make sure the next primary data bucket in the horizontal chain is 
exclusively accessed. 
IF .IFABCIFBSV_WRTACCI 
TF ABCIFOSV_RUJ 

IRABCIRBS$B_CACHEFLGS] = CSHSM_LOCK; 
RETURN_ON_ERROR (RMSGETBKT (.VBN, .IDX_DFNCIDXSB_DATBKTSZ) * 512)); 
IRABCIRBS$L_CURBDB) = .BDB; 
REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 


! Make sure the address of the first record in this bucket is placed 
in IRBSL_LST_NCMP if primary key compression is enabled. 


iF .IDX_DFNCIDX$SV_KEY_COMPR 
THEN 


3POSSEQ 16 - -1984 9 AX-11 Bliss-32 V4.0-74 P 3 
VOeeoe RMSF IND_NONDEL ~8ep-1984 94:39 9? RMS. SRCIRM POssta o:B3004 _ G 
: IRABLIRBS$L_LST_NCMP] = .REC_ADDR; : 
ess ire : 
: 396 ree) END '< ef routine ) 
Py 3 of routine Py 
: INFO#212 L : : 
; Null expression appears in vaiue-required context ; 
3C BB 00000 RMS$FIND_NONDEL: ; 
PUSHR #°M<R2,R3,R4,R5> 3 0374 : 
54 20 Ad DO 00002 MOVL 32¢ + 0468 ; 
55 18 A& 00 00006 MOVL §§ 24(BDB), BKT_ADDR + 0469 ; 
18 14 AE E8 OOOOA BLBS ‘FLL + 0475 ; 
10 1c «(AT 6 €E1 0000 BBC ig e3(IDX_DFN), 1$ + 0483 : 
1 ba 0001 CLRL + 0485 ; 
00006 30 0001 BSBW REC OV : ; 
01 A046 95 00018 TSTB ET REC HADDRI : ; 
05 12 0001C¢ BNEQ 1s ; : 
0098 9 56 D0 00018 MOVL CAADDR. 1152 (RAB) + 0487 ; 
00006 30 9002 1$: BSBW RASCE TNE + 0489 ; 
50 04 AS 3C 00026 2$: MOVZWL 4(BKT NEORT ; 0503 : 
50 55 CO O002A ADDL2  BKT_ADDR, ab * ; ; 
50 56 D1 00020 CMPL  —- RECTADDR, RO : ; 
6C 1£ 00030 BGEQU 9$ ~ ; ; 
68 66 03 £0 00032 BBS #3, (REC -ADDR), 9$ > 0505 3 
3B 66 05 £1 00036 BBC #5, (REC-ADDR), 6$ : 0513 ; 
52 01 A6 BO O003A MOVW © 1(REC_ ADDR) RECORD. 1D : 0521 ; 
000000006 EF 16 OU03E JSB RMSRUER LAIM : 0529 : 
22 50 £8 00044 BLBS STA ; ; 
82AA BF 50 B1 00047 CMPW STATUS. #33450 : 0536 3 
39 13 0004C BEQL : : 
10 1c «A? 06 £1 00046 BBC #6, 28(IDX_DFN), 4$ : 0555 ; 
51 04 0005 CLRL sR : 0557 : 
00006 30 00055 BSBW §RMSREC_OVHD ; : 
01 A046 95 00058 TSTB —- 1 (RO) CREC_ADDRI : 3 
05 12 0005¢ BNEQ 4 ; ; 
0098 9 56 00056 3$: MOVL REC -ADDR 152( RAB) : 0559 3 
43° AQ 02 88 00063 4$: BISB2 #2,767(IRAB) : 0561 : 
BA 11 00067 BRB 1 : 0562 : 
01 «Ab : B1 00069 5$: CMPW  RECORD_ID, 1(REC_ADDR) : 057 : 
: 13 60060 BEQL ; : 
43 Ad 2 88 0006F BISB2 #2, 67(IRAB) : 0574 : 
B1 11 90073 BRB 2$ : 0513 : 
13 66 02 £0 00075 68: BBS #2, (REC_ADDR), 8$ : 058 3 
OA 66 06 €1 00979 BBC 6 (REC “ADDR). 7$ : 0593 3 
06 06 AA F9 007D BLBC 43—._-«s@ (I FAB) , "7$ : 0595 : 
000000006 EF 6 0081 JSB RMSRU_RECLAIM : 0597 : 
50 1 p00 00087 7$ MOVL #1, RO : 0599 : 
5 11 GOOBA BRB 13 ; : 
D2 1c «A? 96 E1 0008C 8$: BBC #6, 28(!DX_DFN), 4$ > 0609 : 
1 D4 00091 CLRL > 0611 : 
00006 0093 BSBW RASREC OVHD : ; 
01 A046 0096 TSTB =: 1 (RO) CREC_ADDR) ; : 
C2 13 O009A BEQL © 3$ : : 
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v04-000 RMSFIND_SIDR 1228671 382 93388: 4 AMS -SREIRM POSSEG.B32;1 (4) | v04 
; 601 0662 1 ZSBTTL_ ‘RMSFIND_SIDR' | 
; 60 663 1 ROUTINE RMSFIND-SIDR : RLSLINKAGE = :] 
; 60 664 1 !++ ; | 
; 604 0665 1! s 1 
; 605 0666 1 ! FUNCTIONAL DESCRIPTION: 3 
; 606 0667 1! sj 
; rt 4 Rees i The function of this routine is to position to a particular SIDR. ; | 
; 609 0670 1! If the NRP key of reference coincides with the key of reference of the :] 
; 610 0671 1! current index descriptor, then this SIDR is the current record. In such 3 1 
g 6ST) 0672 1! a case the NRP information is used to attempt to position to the $s 1 
; ol¢ 0673 1! current SIDR, and if that fails an attempt is made to position to the :] 
; $) 0674 1! current SIDR by means of a random search of the alternate index. If RMS $1 
> 614 0675 1! is able to locate the current record, the number of ocr ex elements 3:1 
; 615 0676 1! preceeding the current element is placed in IRB$W_SAVE_POS, and success : 1 
; 616 0677 1! is returned. If RMS is unable to position to the current record because $1 
; 617 0678 1! it has been deleted, then IRB$W_SAVE_POS is zeroed, and an RMS error 3 1 
>; 618 0679 1! of record deleted is returned. This Status may not represent an actual eB 
; 619 0680 1! error, and so the SIDR poets sened to is also returned. If RMS is unable $] 
; ost ee 1 to locate any record, than an error of RNF is ~eturned. ; : 
; 622 0683 1! If the NRP key of reference is not equal tc che key of reference of the 1 
s 625 0684 1! current index descriptor, then RMS positions to the first SIDR with a | 
> 624 0685 1! key greater than or equal to to the key found in keybuffer 2, or to the | 
ae +) 686 1! first SIDR with a key equal to the nex in keybuffer 2, depending upon | 
: 626 0687 1! the IRB$B_SRCHKEY bit settings. If RMS is successful at positioning to | 3; | 
; er 0688 1! a SIDR, IRBSW_SAVE_POS will always be zero and a status of success is 3 1 
3 628 0689 ! returned; otherwise, a RMS error of record not found is returned. | : } 
; 650 0691 1 ! CALLING SEQUENCE: 31 
: 631 0692 1} | 21 
; 632 0693 1! BSBW RMSFIND_SIDR() : 1 
, O33 0694 1! 3 1 
> 634 0695 1 ! INPUT PARAMETERS: 31 
: €39 0696 1! NONE 3 1 
; 636 0697 1! 31 
: 6@37 0698 1 ! IMPLICIT INPUTS: | 
; 638 0699 1! : 3 1 
5 69? 0700 1! IDX_DFN - index descriptor of index to search : 1 
: 640 0701 1! IDX$B_DATBKTSZ - size of SIDR bucket in VBNs : 3 1 
; 641 0708 1? IDX$B_KEYREF - key of reference of index descriptor | ak 
3; 642 0703 1! IDX$B_KEYSZ - size of SIDR key Bi 
; 643 0704 1! 5) 
3 644 0705 1! - address of IFAB 3] 
; 645 Bre Zz IFB$W_KBUF SZ - size of a keybuffer : 1 
3 646 707 1! IFB$V_RU - if set, file is Recovery Unit Journallable ‘> 
$ yo} thi : IFBSV_WRTACC - if set, stream has write access to the file : | 
; 649 0710 1! IRAB - address of IRAB 3] 
; 650 0711 1! IRB$L_CURBDB - must be zero - 
; 651 arts 1? IRB$W_CUR_COUNT - number of elements preceeding current element s | 
3 O36 Oris } ? IRB$B_CUR_KREF - key of reference of current SIDR record : 
3; 65 0714 1! IRBS$L_KE YBUF - address of stream's five keybuffers : | 
3 654 0715 1! IRB$W_SIDR_ID - ID of current SIDR's first array element > 
3. O39 B58 2: IRB$L_SIDR_VBN - VBN of current SIDR's first array element 3 
3 656 fi7 1! IRB$V~SRCHGE - if set, search for GE match | : | 
; 657 0718 #1! IRB$V_SRCHGT - if set, search for GT match : 
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1 
RMSFIND_SIDR 14-Sep-1984 RMS .SRCIRMSPOSSEQ.B32;1 (4 | 
IRB$B_STOPLEVEL - level at which to stop search (must be 0) 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
IRB$L_CURBDB - address of SIDR bucket's BDB 
IRBSW_ gave POS <= number of elements preceeding the current one 
- address of SIDR record 


ROUTINE VALUE: 


DEL - if RAS was to position to the current SIDR and found it 
e 
RNF - if RMS was unable to find any SIDR to position to and EOF 
was not encountered. 
suc - if the desired SIDR was positioned to. 


various 1/0 errors. | 
SIDE EFFECTS: | 


If 8MS is successful at positioning to the current SIDR a! means of the 
NRP information, IRBSW_SAVE_POS, REC_ADDR, and IRB$L_CURBDB al 
have their stated values and a status of SUC is returned. 

If RMS is unable to successfully position to the current SIDR by means 
of By NRP information, but is able to position to a record, then 
REC ‘gr oy IRBSL _CURBDB — their assigned values, 
TROSU.S POS is Set to 0, and a status of DEL is returned. 

If _ is” aa ‘eosta lentes to the current SIDR and is able to position 
to some record, then IRB$W_SAVE_POS is set to 0, REC_ADDR and 
oan CURBDB have their asSigned values, and a status of suc is 


ned. | 

If RMS. he not positioning to the current SIDR and is unable to position | 
to some record, then IRBSW_SAVE_POS is set to 0, and a status of 

RNF is returned. 


BEGIN 
EXTERNAL REGISTER 
COMMON RAB_ST 
R_IDX -bEN, STR, 
R-REC_ADDR; 


LOCAL 
FLAGS : BLOCK[1); 


~“ 
an 
on 


= 0,0,1,0 %, 
= 0,1,1,0 2: 


: Initialize some variables. 


MACRO 
FIRST_TIME 
NRP 


pa th ye te re a at a rt ae a ta ate on tty or tet ter eye et 
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FLAGS = 0; 
FLAGSCFIRST_TIME) = 


15 
RMSPOSSEQ 1b-se 1984 01:56:09 AX-11 Bliss-32 V4.0-742 Page 17 
yOe-000 RMSF IND_SIDR 12-80-1382 3:09:92 YAMS SREIRMSPOSSEO.B3221 " (4). 
: 715 077 IRABLIRBSW_SAVE_POS] = 0; | ; 
: A$ O78 ! If the amees Sener reter is for the current key of reference, then the ; 
3 at 14 } NRP information will be used in the positioning. : 
; t 9 0781 IF (.IDX_DFNCIDX$B_KEYREF] EQLU .IRABCIRB$B_CUR_KREF J) : 
; f ¢ ares FLAGSCNRP) = 1; 2 
: 726 0785 ! We acy have to make two circuits through roughly the same code; ; 
> 725 0786 : therefore, setup the circumstances for doing so - ie simulate a GOTO. : 
: f $ 34-14 } This loop can only be exited by returning to the calling routine. : 
: 728 0789 WHILE 1 | ; 
; 18? 0790 dO ; 
: 730 0791 BEGIN $ 
3 75) fad : 
; re 079 GLOBAL REGISTER : 
; 0794 COMMON_IO_STR; : 
> «734 0795 3 3 
s 39 0796 3 LOCAL 3 
; 0797 3 SEARCH_RESULT; : 
s Yor 0798 3 : 
; fo 0799 ; ! If the next record positioning formation is to be used, and this is | : 
; 739 0800 ' the first time saroug the loop, then use the next record context in ; 
: be 49 3 the attempt to positioning to the desired SIDR. : 
: 742 080 if .FLAGSCNRP] AND .FLAGSCFIRST_TIMEJ ; 
: 743 0804 3 THEN ; 
: 744 0805 4 BEGIN 3 
: 745 0806 4 : 
; 746 0807 4 ' ALL SIDR buckets are exclusively accessed in case space | 3 
; 747 0808 4 ! reclamation will be required. : 
: 4748 0809 4 ! 3 
; os Bats ? IRABCIRB$B_CACHEFLGS] = CSHS$M_LOCK; | : 
> 751 Oa1§ 4 ! First, access the bucket hopefully containing the current record F 
; P36 Betz : using the next record context information. : 
: 754 P0815 4 RETURN_ON_ERROR (RMSGETBKT (.IRABCIRB$L_CUR_VBNI, ; 
3 39 0816 4 . 1DX_DFNCIDR$B8_BATBKTS23*512)); ‘ 
; £38 pale 2 IRABCIRB$L_CURBDB) = .BDB; : 
: 758 0819 4 ' Next, do a search through this bucket looking for a SIDR with a : 
; 759 0820 4 : ney value the same as that of the current record, the key of 3 
: Set pes) 2 which maybe found in keybuffer 2. : 
: 76 0898 4 BKT_ADDR = .BBLOCKC.IRABCIRBSL_CURBDB), BDBSL_ADDR); : 
; re? ba5e ? REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; : 
: 765 0826 4 SEARCH_RESULT = RMSSRCH_BY_KEY(); ; 
: 766 0827 4 END 3 
: 767 +33 4 : 
; 768 bas 4 ! If the next record positioning information can not be used to : 
: 769 0830 4 ! position to the desired SIDR either because it is for the wrong key $ 
; 770 0831 4 ! of reference, or because this is not the first time through this : 
; 771 0832 4 ' Loop, then perform a random search of the alternate index using as 3 
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16-Sep-1984 01:56:09 AX-11 Bliss-32 V4.0-742 
v04-000 RMSF IND_SIDR 1o-808= 1382 93:09:92 AMS. SREIRA POSSEQ.B32;1 
; 77 0833 4 ' the search key the key in keybuffer 2. 
: O78 0834 , . : 
: 774 5 > ss ELSE 
3 0 0 $ 4 BEGIN 
: 776 08 4 
; eee 08 § 4 RETURN_ON_ERROR (RMSCSEARCH_TREE()); 
; 779 0840 4 ! Determine whether the SIDR positioned to has a key greater 
: ree Bees r } than or equal to or less than the key in keybuffer 2. 
; 78 OBe8 4 SEARCH_RESULT = RMSCOMPARE_REC (KEYBUF_ADDR(2), 
; 0844 4 IDX_DFNCIDX$B_KEYSZ], 
: 784 0845 4 6); 
> #785 pag END; 
; 786 084 
s fer 0848 ! The SEARCH_RESULT can be greater-than only if RMS is currently 
: 788 0849 : posit renta using the NRP context information, and the key in 
: 789 0850 ! keybuffer 2 is greater than the key of every SIDR in the current 
; 790 0851 ' bucket. In such a situation, RMS knows that the SIDR it was Lookin 
; 791 Bag ! for has moved since it was accessed by this process. Therefore, this 
;r 085 ' SIDR could not have been in a continuation bucket, and if its still 
: 79 0854 ! in the ISAM file it can be positioned to by per vecgrne a random 
3; 794 0855 3 ! search of the alternate key index using the record's key value after 
: 795 0856 ! releasing the current SIDR bucket. 
s 1% 0857 : 
; 797 0858 IF .SEARCH_RESULT GTR 0 
: 798 0859 THEN 
: 799 0860 4 BEGIN 
; 800 0861 4 FLAGSCFIRST_TIME] = 0; 
; 801 0862 4 RELEASE (IRABCIRBSL_CURBDB)); 
; 802 08 4 END 
; 803 0864 4 
; 804 0865 4 ! The SEARCH_RESULT can be Lless-than only if RMS was unable to find 
; 805 866 4 ! a SIDR record with a key equal to the key in keybuffer 2 either in 
; 867 4 ' the current bucket (if the NRP context information was being 
; 807 0868 4 ! utilized) or anywhere in the alternate index (if it was not). Under 
: 808 0869 4 ! such circumstances, the SIDR RMS has positioned to, which has a key 
: 8 0870 4 ! greater than the key in keybuffer 2, is the desired SIDR. 
; 810 0871 4 : 
, 8 087 ELSE 
: Big 087 IF .SEARCH_RESULT LSS 0 
; #81 0874 THEN 
; 6814 0875 
> 815 gare ! If RMS had been using the NRP context information to position 
; 816 87 ' to the current SIDR then this means that the current SIDR has 
: siz 0878 ! been deleted. To indicate this IRB$W_SAVE_POS is left at 
; 818 0879 ! zero and an RMS error of record delete is returned although 
s st? 0880 ! whether this is an error or not depends upon the context in 
; 820 0881 ! which this routine is called. 
; 821 tt : 
; HA 088 IF .FLAGSCNRP) 
: 82 0884 THEN 
3; 824 0885 4 RETURN RMSERR(DEL) 
: 825 th] 4 : 
: 826 887 4 ! If the NRP context information had never been used, then this 
: 827 888 4 ' SIDR represents the desired SIDR, and a successful status is 
; 828 889 4 ! returned. 
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v04- RMSFIND_SIDR 127808-13be 93:09:92 RMS.SRCIJRMSPOSSEQ.832; 1 (4) | 
: 829 0890 4 | : 
; 4 0 8 91 3 ELSE | ; 
; 5 bbe ? RETURN RMSSUC() : 
: 8 0894 4 ' RMS has successfully positioned to a SIDR with a key exactl : 
; te 0895 4 ! matching the key tobe found in keybuffer 2. . . : 
; 835 34] 4 ! 3 
3 539 089 ELSE 3 
; § 0898 : 
; 838 0899 : If the SIDR RMS is to retrieve is in fact the current record, ‘ 
; 839 0900 ! then even though RMS has been able to position to a SID . 
; 840 0901 ' with the same key as the current record, this SIDR may not be | : 
: 841 090 ' the current record. To determine this, the RFA pointer of : 
; 84 090 ! the found SIDR's first array element must be compared with ; 
; 84 0904 ! the RFA pointer of the first element of the current record : 
: ate 3444 ; } which is part of the next record context found in the IRAB. | ; 
; 846 0907 ; IF .FLAGSCNRPJ 3 
: 847 0908 THEN 3 
; 848 0909 4 BEGIN F 
; 849 0910 4 F 
; 850 0911 4 OCAL | 3 
; 851 0912 4 FIRST_VBN, : 
$ S26 0913 4 FIRST_ID; . 
; 85 0914 4 3 
; 228 34} : Retrieve the RFA pointer of the SIDR's first element. : 
; 856 0917 4 RMSSIDR_FIRST (1;FIRST_VBN, FIRST_ID); | : 
3 Bor 0918 4 F 
; 858 0919 4&4 ! If the RFA pointer of the SIDR's first element matches ; 
; 859 0920 4 ! the RFA pointer of the current SIDR's first element : 
; 860 0921 4 ' saved as pert of the next record gor ievensey context, 3 
; 861 0922 4 ! then RMS has been able to successfully position to the 3 
; B66 09235 4 ' current record. Load the number of array elements : 
; 86 0924 4 ! preceeding the current element in to IRB$W_SAVE_POS and : 
3 0925 4 ' return success. 3 
; 865 0926 4 ! 3 
; 0927 5 IF (.FIRST_VBN EQLU .IRABCIRBSL_SIDR_VBNJ) : 
; 867 0928 4 3 
; 868 0929 5 (.FIRST_ID EQLU .IRABCIRB$W_SIDR_1IDJ) é 
; 869 0930 4 3 
; 870 0931 5 BEGIN ; 
; «871 eae) 5 IRABCIRBSW_SAVE_POS] = .IRABCIRBS$W_CUR_COUNT); : 
3 ore 03 2 RETURN RMSSUC(); | 3 
: 87 934 END | ; 
3; 874 0935 5 : 
; 875 0936 5 ! If either the VBN or the ID of the first element of the : 
; 4 6 0937 5 ' current record and the first element of the SIDR RMS has : 
3; 877 0938 5 ' positioned to do not match, then the current SIDR has 3 
; 878 939 5 ! been deleted, IRBSW_SAVE POS is left at 0, and a RMS : 
; 879 940 é ' error of record deléted 7s returned (although whether : 
: 941 ! this is an error or not depends upon the context in F 
; 881 094 2 ' which this routine is called. ‘ 
3 HY 094 ! 3 
; 88 944 4&4 LSE 3 
> «B84 945 4 RETURN RMSERR(DEL); : 
; 885 946 4 D : 
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v04-000 RMSFIND_SIDR 12-808-1 3b 94: 30:9? FRMS SRC RM Passkaro3or4 . i 
00006 3 7 BSBW  §RMSRLSBKT ; 
SE Oe cD BB ADDL2 #4, SP : 
8 11 00078 BRB 1$ : 0858 
06 18 0007D 4$ BGEQ 36s 5$ : 0873 
2D 53 1 Fi 007F BBC #1, FLAGS, 7$ : 0883 
4 11 00 3 BRB + 0885 
27 53 1 €1 00085 Ss: BBC #1, FLAGS, 7$ : 0907 
or bp 0089 PUSHL : 0917 
09006 39 00088 BSBW RMSSIDR_FIRST : 
SE 94 L0 O008E ADDL2 # F 
00B4 C69 1 D1 00091 CMPL  FIRST_VBN, 180(IRAB) + 0927 
11 12 009% BNEG ; 
52 OUBE C9 10 vo ED 0009 CMPZV #0, #16, 190(IRAB), FIRST_ID + 0929 
08 12 0009F BNEQ : 
76 «Ad 00cO }6—C9 «BO 0001 MOVW  192(IRAB), 118(IRAB) + 0932 
07 11 000A7 BRB 7$ + 0945 
50 8262 8F 3C OO0AD 6S: MOVZWL #33378, RO : 
03 11 OOOAE BRB as ; 
50 01 DO 90080 7$: MOVL #1, RO + 0954 
3C BA 000B3 8$: POPR  #*M<R2,R3,R4,R5> : 0959 
05 00085 RSB : 


; Routine Size: 182 bytes, Routine Base: RMS$RMS3 + 0129 
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960 ZSBTTL ‘RMSPOS_SEQ' 

ae) GLOBAL ROUTINE RMSPOS_SEQ : RLSRABREG_67 = 

96 '++ 
0964 ‘ 

Be? FUNCTIGNAL DESCRIPTION: 

Ber This routines responsibility is to direct RMS's positioring to the next 
0969 record will be the current primary data record (if IRBSV_SKIP_NEXT is 
0970 not set and the current record is not deleted), but in most cases the 

971 next primary data record will in fact be the tirst non-deleted primary 

97 data record RMS can position to after positioning to the current 
Oer7 primary data record or SIDR array element. 

0975 This routine handies the positioning itself if the primary key is the 
0976 current key of reference, and it also directs the positioning to the 
0977 very first SIDR if the current index is an alternate index, and this is 
0978 the first positioning attempt after a SCONNECT or SREWIND. However, 
0979 this routine handles all subsequent SIDR positionings Oy calling 

0980 RMSFIND_SIDR to position to the current SIDR and RMSSEARCH_SIDR to 

949 position to the current array within the SIDR. 

098 RMS‘s first task is to poste ten to the current record (to the current 
0984 SIDR array element if the current record is a SIDR). One basic 


assumption is made by this routine, and that is that if RMS is 


0986 positionin by the primary key of reference and ayes feate primary keys 
0987 ARE allowed then this process's current record MUST be present in 

the file. This is because the only time the space held by a record can 
0989 be reclaimed on that record's deletion is if duplicate primary keys are 
Bane not allowed in the file. The same can not be said to be true for 
099 to delete the entire SIDR regardless of whether it is any process's 
345, current record or not. 
0995 Once RMS has positioned to the current record, it can position to the 
0996 primary data record to be returned (which may in fact be the current 
0997 primary data record). This positioning is accomplished by this routine, 
0998 if the primary key is the current key of reference, or by 
0999 RMSSEARCH_SIDR if it is not. 


The oiger ithe used by this routine in positioning to the current record 

100 when the primary key is the key of reference is as follows: 

1) If this is the first time a positioning is attempted after a 
SCONNECT or SREWIND there is no current record so position to the 


very first non-deleted primary data record in the file. 


SOooSooO 
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2) Otherwise, the current record information is used to access the 
current bucket and search for the record in there. 


3) If the current record is not found in the current bucket and the 
VBN of the current primary data record and current bucket differ, 
toen attones to find the current primary data record utilizing its 

address. 


4) If RMS is still unable to find the current record it must have been 
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RMSPOS_SEQ erg b=1382 94:38:92 «HANS Sab SARSpogsta7O3004 age 83 
' deleted; therefore RMS performs a random search of the index either 
to locate the deleted record Cust marked deleted) or to find the 


mays, feerH (prologue 3 files not allowing duplicate primary keys 
y). 


a) If duplicates are allowed the search is for the first record with 
an identical ney A search is then made of all primary data 
records with this key value until the current record, which is 
guarenteed to be in the file, is found. 


b) If duplicates are not allowed then the search is for the first 
record with a ney greeter than or equal to the key of the 
current record. This is because if duplicates are not allowed 
@ greater-than or equal search will position RMS to the first 
record of identical or greater key value, and the next 
non-deleted record, (including thwe one directly positioned to) 
is the record RMS wants to return. 


CALLING SEQUENCE: 
BSBW RMSPOS_SEQ() 


INPUT PARAMETERS: 
NONE 
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IMPLICIT INPUTS: 
IDX_DFN - address of index descriptor 
IDX$B_DATBKTSZ - size of data bucket 
IDX$B_KEYREF - key of reference 


AB - address of IFAB 
IFBSW_KBUF SZ - keybuffer size 
IFBSV_RU - if set, file is Recovery Unit Journallable 
IFBSV_WRTACC - if set, stream has write access to the file 
IRAB - address of IRAB 
IRB$W_CUR_ID - ID of current record 
IRB$L_CUR_VBN - VBN of current record 
IRBSL_KEYBUF - address of keybuffers 
a - if set, skip current record and return next 
IRB$W_POS_TD - 


IRB$L_POS_ VBN 
OUTPUT PARAMETERS: 
NONE 


ID of user data record for NRP positioning 
VBN of user data record for NRP positioning 
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IMPLICIT OUTPUTS: 
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[=] 
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address of the BDB describing the primary data bucket 
deleted records seen between current and next record 
ID of the next SIDR's first element's RRV pointer 

VBN of the next SIOR's first element's RRV pointer 

ID of the next record (primary data only) 

VBN of the next record (SIDR or primary data) 

number of elements preceeding next SIDR array element 
address of next primary data recerd 
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SEQ 
i ROUTINE VALUE: 


EOF = end-of-file encountered before record to be returned is found. 
SUC = found non-deleted primary data record to return. 

BUG = serious internal error precluded positioning to a record. 
various 1/0 errors 


; i SIDE EFFECTS: 


SUC - if the hg key is the key of reference, IRBSL_RFA_VBN and 
+ ert + at nee values god if not, 
, IRB$W_FIRST_ID, and 
RBS pos hoon the, r ‘aeti n values. in” both cases, REC_ADDR, 
Rasy “DEL E SEEN and IRBSL_CURBDB have their assigned values. 
In all other caSes, these fields have indeterminate values and all 
pucket locks have been released. 


P IS TRASHE 
TRBSB. STOPLEY EL is 0 
IRB$W_SRCHFLGS is of indeterminate status 
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BEGIN 


EXTERNAL REGISTER 
STR, 

_1DX_BFN_STR 
R-REC"ADDR_STR; 
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DWONAUE WN OOOO NAME WN $$ O ODONAUE WO ODN NEW OOONIOUE 


! Initialize some search control fields. 


GLOBAL REGISTER 
COMMON_1O_STR; 
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034 
035 
036 
037 
038 
039 
040 10 
041 10 
ek 10 
04 10 
044 10 
045 10 i 
046 10 IRAB IRBSB_STOPLEVEL] = Q: 
pee 18 IRABCIRB$W_SRCHFLAGSJ = 
049 10 ! If this is the very first time RMS is positioning after a S$CONNECT o 
050 11 ! $REWIND then position to the very first non-RRV record in the very first 
b2) i SIDR/primary data bucket. 
038 1 iF (. IRABCIRBSL_CUR_VBN) EQLU 0) 
055 11 (. IRABCIRBS$L_POS_VBNJ EQLU 0) 
087 1 THEN BEGIN 
058 11 
059 11 IRABCIRBSV_FIRST_ TIM) = 
44 190 RET_ON_ERR_ “EOF ERASESEARCH _TREE(), IRABCIRBSV_FIRST_TIM] = 0); 
00g 13¢ ! If RMSCSEARCH_TREE positioned RMS to an empty bucket, position to the 
06 : ? first non-empty bucket or until the end-of-file is encountered. 
re : i WHILE 1 
06 1 BEGIN 
068 128 

9 129 

130 


ss 
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EHEEBME AU:St UM Jadnbns UB 
19-08-1382 94:39:92 FANE T LBL is 

valet? he RMSPOS_ SEQ 


} ¢ CAL 
; 1071 1133 ¢ LOCAL 
; DDR); 
: 1078 He LOCKL. IRABLIRBSL_CURBDBI, BDBSL_A 2 
: 1074 1134 4 BKT_ADDR = .BB . imary data bucket, or an 
: 1075 ia? 9 ‘ itioned to a RRV in a prim this bucket, and acce 
: 1 1 $ ; ! If RMS has posit ° then RMS nust gy ote be. RMS starts its 
; 1976 1137 4 i the bucket hg 2 RD chain. Ot tate diserd aith the 
: 195 1138 : i the ae > the first non-delesed primary 
; 1978 1120 ? iret record in this bucket. 
: 198 ee if Not ((. IDX_DFNCIOXSB_KEVREF EQLU 0 
: 1088 1148 3 .REC_ADDRCIRCSV_RRVJ) ea 
: 1988 112% . REESPACE] LEQU BKTSC_OV 
bbe 1308 5 “a (.BKT_ADDRCBKTSwW_F 
: 108 1168 6 EXITLOOP; hein then 
; 1089 1132 2 ' If this is the last data Suchey in the hertpogved. sf first 
: 1090 1151 4 i every single bucket {s turn end-of-file. 
: 1098 1188 & : non-empty bucket and ting 
1090 as iF _.BKT_ADDRCBKTSV_LASTBK 
; 1095 1186 4 THEN on se 
: 1099 Wor 3 RELEASE ( IRABLIRBSL_CU 
+ 1097 1158 5 RETURN RMSERR (EOF)? 
; 1098 1159 5 END; horizontal chain, release 
1900 Hie. vow dn gh Reyne yh ange thlg Byte wns B. by its VBN. 
v4 ' 
: 1102 1163 d | the current bucket, and ae 
3 110 ask RCBKTSL_NXTBKTI; 
3 1105 1186 & RELEASE Unit Journallable and ye ees nai 
: Hoy 1385 ¢ | therpositioning fs: being, done oy elternate hey "of reteren 
: 1106 Hes eater eck Sant ee are es 
° i Ss 
; 119p 1109 ? i rome Ba oe Phe accessed. 
: ! 
ABE 1172 iF (.1FABCIFBSV_URTACCI 
1118 1174 ; . IFABLIFBSV_RU]) 
3 71 0 
: 111g 1% d .TDX_DFNCIDXSB_KEYREF) ease oe 
118 1178 ? IRABCIRBS$B_CACHEFLGS) 8 te DFNCIDX$B_ DATBKTSZ]*512)): 
: T ° oe © - = 
: 1130 1399 § RETURN_ON_ERROR a 
a 1188 & RECCADDR S~CBRT ADDR 3 BESC_OVERHDSZ; 
g lig? 1184 4 END? countered and REC_ADDR 
: i ° 1185 “empty bucket has been en 
: 1 11 ! When the first non-emp 
: 3? " | 
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' is setup to = to the first record in that bucket, then clear the 
! first time flag. 


[RABCIRBSV_FIRST_TIM] = 0; 


RMSPOS_SEQ 


! If the key of reference is the primary me then RMS must find the 
! first non-deleted pr tnory data record in the file. If this is an 

! alternate index, RMS does not need to do this positioning because 
! that will be done when RMS positions to the first non-deleted 


! primary data record. 
IF .IDX_DFNCIDX$B_KEYREF] EQL 0 


i] 
! 
! 
i] 
! 
t 
IF . 
THEN 
RETURN_ON_ERROR (RMSFIND_NONDEL (1)) 
! If the key of reference is not the primary key, then RMS is to 
! start its search for the first non-deleted primary data record in 
! the file with the very first array element of the SIDR it has 
positioned to. 


ELSE 
IRABLIRB$W_SAVE_POS] = 0; 
END 


eS ee re ree eee nee ee 


This is not the first time RMS has se yore tatty accessed the file since 
a SCONNECT, or SREWIND was done. If RMS is positioning by means of an 
alternate key of reference, then all of the positioning to the current 
SIDR and the current array element within that SIDR is done by the 
routine RMSFIND_SIDR. 


SE 
lf _.IDX_DFNCIDXSB_KEYREF] NEQ 0 
THEN 


BEGIN 


LOCAL 
STATUS; 


IRABCIRB$V_SRCHGE) = 1; 


OO DNAOUES WN OC OODNOAUSWN—“OOONAUEWN— 


! If some serious error occurred during RMS's positioning to the 
' current SIDR, then immediately return the error. However, if 

' RMS has successfully positioned to the current SIDR then ; 

! IRBSW_SAVE_POS contains the number of array elements preceeding 
the current SIDR array element. 

I 


F NOT ((STATUS = RMSFIND_SIDR()) 
(.STATUS<0,16> EQL RMSERR(DEL))) 


YWSIOARANVSSSUS- 


THEN 


! If the current SIDR was the last SIDR in the file, and it 
! has been deleted, return EOF indicating that the end of the 
file has been encountered; otherwise, return the actual error. 


Ug STATUS CD. 16> EQLU RMSERR(RNF ) 


' 
i 
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i 
I 
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00 

5 45 RETURN RMSERR(EOF) 

6 ELSE 

f RETURN .STATUS; 
' If RMS is successful at positioning to the current SIDR then 
' setup to re h record provided RMS is to return the 


turn the next 
} next record (IRBSV_SKIP_NEXT is set). 
IF .STATUS AND ,IRABCIRB$V_SKIP_NEXT] 


! If the file is Recovery Unit Journallable and write accessed, then 
make sure the current primary data bucket exclusively accessed. 


iF + [FABLIFBSV_WRTACC] 
. IFABLIFB$V_RUJ 
THEN 


0 - 
; 118 1 4 
; 118 1246 
: 118 1247 
; 118 1248 
: 1189 1249 
: 1190 1250 
3; 1191 1251 
; 1138 1 26 
2; 49 125 
3 1194 1254 3 
; 1195 1255 IRABCIRB$SW_SAVE_POS] = .IRABCIRBSW_SAVE_POS] + 1; 
: 1338 1256 D 
3; 119 1257 
; 1198 1258 ! If this is not the first time sequentially accessing a record after 
3 1199 1259 3 ! a SREWIND or SCONNECT, and RMS is to position by the primary key of 
: 1200 1260 3 ! reference, then RMS's strategy is to first position to the current 
3 1201 1261 3 i record which must be present somewhere in the file if it allows 
; 1608 1506 3 ! duplicate primary keys. RMS will return either its position or that 
; 120 1263 3 ! of the next non-deleted pr casey data record which follows it based 
> 1204 1264 3 ' upon whether or not it found the current record to be deleted, and 
> 1205 1265 3 ! whether it was to return the current or the next record. 
: 1206 1266 3 ' 
: 1207 1267 2 ELSE 
: 1208 1268 3 BEGIN 
: 1209 1269 3 
: 1210 1270 3 FIELD 
s tet 1271 3 POS_FLAGS = 
: 1212 1272 3 SET 
: 1213 1273 3 FND_BY_RRV = (0,0,1,0], 
: 1214 1274 3 FND_BY_SRCH = (0,1,1,0] 
3: 1215 1275 3 TES; 
: 1216 1276 3 
: 1217 1277 3 LOCAL 
: 1218 1278 3 FLAG : BLOCKC1,BYTE) 
3 1219 1279 3 FIELD (POS_FLAGS); 
: 1220 1280 3 
3; 1221 1281 3 FLAG = 0; 
: 1222 1282 3 : Ser 
3 tees 1283 3 ! RMS will use the VBN and ID of the current record positioning 
3 1224 1284 3 ! information to attempt to position directly to the current 
3; 1225 1285 3 ' primary data record. 
5 1536 1286 3 : 
: 1227 1287 4 BEGIN 
3; 1228 1s 8 4 
: i t44 1289 4 BUILTIN 
; 12350 1290 4 AP; 
; 1231 1291 4 
3 1S36 12 ¢ 4 LOCAL 
3: ies 12 4 STATUS; 
3: 1234 1294 4 
; 1235 1295 4 
; 1236 1296 4 
: 1§ 7 1297 4 
; 1238 1298 4 
3 Is 9 1299 4 
; 1240 1300 4 
: 1241 1301 4 
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IRABLIRBSB_CACHEFLGS] = CSHSM_LOCK; 


AP = ,IRABCIRB$W_CUR_IDJ; 
STATUS = RMSFIND-BY_RFA (.IRABCIRBSL_CUR_VBNJ); 


7 P 
; we 


oO 
wr 


! On any errors other than record not found or record deleted 
} return immediately. These will be I/0 errors. 


iF NOT (.STATUS 
(.STATUS<0,16> EQL RMSERR(RNF)) 
(.STATUS<0,16> EQL RMSERR(DEL))) 
RETURN .STATUS; 
If RMS is unable to find any record through use of the 
current record information, or if it finds a RRV then this 
indicates that the current record must have moved, or may have 
been deleted. 
F wil » STATUS 


0 
-REC_ADDRCIRCSV_RRVJ 
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THEN 

BEGIN 

6 GLOBAL REGISTER 

, COMMON_I0_STR; 

7 ! If the VBN of the current record is not the same as the 
7 ' VBN of the current record's RFA address, then RMS has no 
7 ! way of knowing what has happened to the record. RMS has 

7 ! no way of knowing whether it has not been deleted and 

7 ' can still be access through its RFA, or whether it has 

7 ' been deleted and can not. In this case, RMS must search 
7 ! for the record by its RFA address, saved as part of the 
7 !' next record positioning context information, to confirm 
: } its status. 

; Fg GR AOE, NON NEQ .IRABCIRBSL_POS_VBNJ 
Spe FLAGCFND_BY_RRV] = 1 
286 ' If RMS has positioned to a RRV through the use of the 
287 ' current record information, and the YBN of that bucket is 
288 ! the same as the VBN of the current record's RFA address, 
289 ! then RMS has positioned to the RRV for the current : 
$30 ! record. Provided, the RRV is not marked deleted, RMS will 
91 ' be able to position to the current record by means of its 
$36 RFA address. 

294 ELSE 

295 IF .STATUS 

296 AN 

297 -REC_ADDRCIRCSV_RRVJ 

298 AND 
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NOT .REC_ADDRCIRC$V_DELETED] 
FLAGCFND_BY_RRV] = 1 


If the VBN of the current record is the same as the 

VBN of the current record's RFA address, and 

was unable to position to a record (Prologue 3 = RRVs 

are deleted entirely although the record is jus 

marked), or it was able to position to a deleted RRV 
(Prologue 1), then this indicates that the current 

record has been deleted. In such a situation a random 
search of the primary index will have to be done 

either to locate the next record itself (primary key 
duplicates NOT allowed), or to locate the current record. 


$s 
o 


Soxc3 


Siw ateme memeciecimeeiemecsnin 
cr 


SE 
FLAGCFND_BY_SRCH) = 1; 


! It will be necessary to release the primary data bucket 
: described by the current record information, if RMS has 
positioned to an RRV, and the bucket is still locked. 


IF . STATUS 
RELEASE (IRABLIRBSL_CURBDB)); 
END 


RMS has successfully positioned to a non-RRV record by means 

of the next record positioning context information in the 

IRAB. This does not mean that RMS has positioned to the 

current record because it would be possible in a prologue 1 file 
for the current record to move, and its ID re-used by another 
record (ID recycling is allowed in one special circumstance). 
Therefore, that the record RMS has positioned to is in fact the 
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34 current record must be verified by neers the RRV in the 
HH record positioned to with the RFA address of the current record. 
Hf ELSE 
39 ! If the RRV of the record RMS has positioned to is not the 
340 ' same as the RFA address of the current record, then RMS 
341 ' has failed fo position to the current record. If this is 
348 ! a prologue 5 file, then this represents a serious error 

! because IDs within a bucket may not be recycled. If this 
344 ' is a prologue 1 file this does not represent a serious 
345 ! error because IDs maybe recycled; therefore, attempt to 
346 ! position to the current record by means of its RFA 
4 address. 
349 IF NOT RMSCHECK_RRV() 
351 BEGIN 
326 
35 GLOBAL REGISTER 
$20 COMMON_IO_STR; 
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28 } RELEASE (IRABCIRBSL_CURBDBI); 
28 : If .IFABCIFBSB_PLG_VER] GEQU PLGSC_VER_3 
rs RETURN RMSERR(BUG) 
o¢ FLAGCFND_BY_RRV] = 1 
P D 
65 ! If the RRV of the record RMS has positioned to is the 
66 ' same as the RFA address of the current record, then RMS 
of } has successfully positioned to the current record. 
9 i Look for the next non-deleted primary cata record. Begin 
70 ! the search with the current record if and only if the 
1a ; state bit IRBSV_SKIP_NEXT is clear. 
ns 3 ELSE 
74 P 3 RETURN _ON_ERROR 
75 3 (RASFIND_NONDEL (NOT .IRABCIRBSV_SKIP_NEXT])); 
i = 
78 3 ! If RMS was unable to position to the current record by means 
79 3 ! of the current record information, then it may try to position 
80 4 : to the current record by means of its RFA address. It will try 
81 4 ! to do so as long as it knows that the current record has not 
HY ? been deleted. 
84 4 IF .FLAGCFND_BY_RRV] 
85 4 THEN 
‘ BEGIN 
4 LOCAL 
4 STATUS; 


! If the file is Recovery Unit Journallable and write accessed, 
! then make sure the primary data bucket bucket containing the 
current primary data record is exclusively accessed. 


if .IFABCIFBSV_WRTACC) 
. IFABCIFBSV_RUJ 
IRABCIRB$B_CACHEFLGS] = CSHSM_LOCK; 
Position to the current record by means of its RFA address. 


STATUS = RMSFIND_BY_RRV (.IRABCIRBSL_POS_VBNJ, 
RAB IRB$W~POS_1DJ, 


! If RMS is unable to position to the current record by means 
! of its RFA address, and the status is other than record 

! deleted, then save the real reason for the failure in the 

i RAB's Sfv field and return an invalid internal condition. 


F NOT .STATUS 
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' 
' 
' 
' 
' 
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1 
RMSPOS_SEQ 1 3:01:34 RMS .SRCIJRMSPOSSEQ.B32; 


AND 
£.StATUOS, 1 NEQ RMSERR(DEL)) 


peers 
RABCRABSL STV] = .STATUS; 
aim RMSERR (BUG) ; 


If RMS is unable to position to the current record because 
it has been deleted, then indicate that a random search of 
the primary index to either locate the current record or 
to locate the next primary data record (primary key 
duplicates not allowed) must be done. 


LSE 
IF NOT .STATUS 
THEN 


FLAGCFND_BY_SRCH) = 1 


! RMS has successfully positioned to a primary data record 
! through the use of the RFA address of the current record 
! saved as part of the IRAB's next record positioning 

! context. Before continuing, verify that the record RMS 

' has positioned to is in fact the current record. 


' 

' 

' 

' 

' 

' 

ELSE 

' If the RRV of the record RMS has positioned to is 

! not the same as the RFA address of the current record 
! then RMS has failed to position to the current record 
' by means of the next record context information. This 


' 
' 
! 
! 
' represents a serious error, regardless of the 
prologue. Release the primary data bucket and return 
' 

I 
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' a status of invalid internal condition or bug error. 


F_NOT RMSCHECK_RRV() 
THE 
BEGIN 


GLOBAL REGISTER 
COMMON_10_STR; 


RELEASE (IRABCIRB$L_CURBDB)) ; 

RETURN RMSERR(BUG) 

END 
If the RRV of the record RMS has positioned to is the 
same as the RFA address of the current record, then 


RMS has successfully positioned to the current record 
by means of its RFA address. 
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Look for the next non-deleted primary data record. 
Sopie the search with the current record if and 
only if the state bit IRBSV_SKIP_NEXT is clear. 
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0 P RETURN_ON_ERROR 

; ee: (RASFIND_NONDEL (NOT .IRABCIRBS$V_SKIP_NEXT])); 

4 ! If the current record has been deleted then a random search 

5 ! of the primary index must be done as part of positioning to 

8 the primary data record to be returned. 

8 if .FLAGCFND_BY_SRCHJ 

o THE 

, BEGIN 

4 If duplicate keys are not allowed and the current record is 


deleted then it will have been conpterety deleted from a 
prologue 3 file, and onty a RRV will be le 


ft in a prologue 2 
file. Therefore, a searc 


' 

i 

! for the first non-deleted peso? 
! data record with a key equal to or greater than the ey of 
' the current record will position RMS to the record it is to 
return. 

: 

T 


wooOodowow ODO 
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; 14 1530 4 

; 14 1531 4 

3; 14 1 ¢ 

3 14 1 

3: 14 1534 

7 14 1535 

3 14 1 $ 

: 14 1 

7 14 1538 

3 14 1539 

3; 14 1540 4 

3: 14 1541 4 

: 14 1 ¢ 4 

: 14 1 4 

3 14 1544 4 

3 14 1545 4 

3 14 1546 4 

3: 14 1547 4 

3 14 1548 4 

3 14 1549 4 

» 14 1550 4 F NOT .IDX_DFNCIDX$V_DUPKEYS] 

3: 1491 1551 4 HEN 

3: 14 . 1 ¢ 5 BEGIN 

3 14 1 5 

3 1494 1554 § ! Position to the next first record with a key value equal 
; ieee : 2 : to or greater than the key of the current record. 

3: 1497 1557 5 IRABCIRBSV_SRCHGE) = 1; 

; 1498 8 3 RETURN_ON_ERROR (RMSCSEARCH_TREE()); 

; 1500 1560 5 ! Return the first non-deleted primary record encountered 
3; 1501 1561 5 ! beginning the search with the record RMS has positioned 
; 1206 1 ; 5 ! to. 

: 150 1 5 : 

3 1504 1564 5 RETURN_ON_ERROR (RMSFIND_NONDEL(1)); 

3 1308 1565 5 END 

: 1506 1566 5 

; 1507 1567 5 ! If duplicate primary keys are allowed then the deleted 

; 1508 1568 5 ! current record must still be somewhere in the file although 
3; 1509 1569 5 ! marked deleted. Position to it by searching al! records o 
3; 1510 1570 5 ' key value identical to that of the current record until it 
3 1511 1571 5 ' is located. 

; 131g 1376 5 : 

3; 151 1573 4 ELSE 

: 1514 1574 5 BEGIN 

3; 1515 1575 5 ' : 

3; 1516 1576 5 ' Search for the first record in the file with the same 
3; 1517 1577 5 ! primary key value as the key of the current record. If 
3; 1518 1578 5 ' none is found then this represents a serious problem 

3 1519 1579 5 ! because the current record itself must always be 

: 1290 1380 : } somewhere in the file even if it has been deleted. 

3 1392 1286 5 IF NOT RMSCSEARCH_TREE() 

§ 12 1583 5 

3 1524 1584 6 RETURN RMSERR (BUG) 

; 135? 1585 6 : , 

: 1526 1586 6 ' RMS has successfully positioned to a primary data record 
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! with the same key as that of fhe current record. 
! Somewhere in this bucket (or in any of the voy eunng 
' continuation buckets if duplicates are allowed) must be 
' the (marked) deleted current record. Position to the 
! current record. After positioning to the current record, 
! the next non-deleted primary data record in the file is 
the record RMS wants to return. 
ELSE 

BEGIN 


LOCAL 
STATUS; 


! Since the current record must be in the file even if 
: it is just marked deleted, RMS's search criteria is 

! to sequentially find all records with key value 

' equal to that of the current record until the current 
} record is positioned to. 
Ss 


TATUS = 1; 
dO 


PUPVSVSULVSVSVSUSUSISVSIS ISIS 
PAAQQAEMAMAAN ANI BE BEE EE PA 


wm 


' The record RMS has currently positioned to is 

! the current record when its RRV matches the RFA 
! address of the current record. In such a case | 
! find the next non-deleted primary data record in 
the file. 
I 


F_RMSCHECK_RRV() 
THEN 


BEGIN 
RETURN_ON_ERROR (RMSFIND_NONDEL (0)); 
EXITLOOP; 


POPPI SVS SSIS IIIT 
AWWNAINIAI AAAI NIIP PINIPININIPINIDYD 4 2 OO Ss | HQOOCDCOCOCOCOCOCOCOOOOOVOOOOOOMMo 


ee eB od od od 
EEE EEE EEE OLE OE EE EE RAAAAAAAM A SSS SASS Re ee eee ee ete 
WRI 0 OO NOUN EW OOD NOAU EWN OOO NOU EWN (CO OONAOUE WN“ O CONAUES WR "O0On 
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64 ! If the record RMS has positioned to is not the 
65 ' current record (its RRV does not match the RFA 
66 ! of the current record), then position to the next 
67 i record. RMSCSEARCH_TREE will then determine 

568 ' whether the hey of this next record is the same 
298 as the key of the current record. 

571 ELSE 

Has PMSGETNEXT_REC() 

378 WHILE (STATUS = RMSCSEARCH_TREE()); 

278 ' If RMS was unable to find the current record in the 
57 ' file then this represents a serious error because 
578 ' current records can never be completely deleted from 
579 ! the file while they remain current records. Return 
280 status indicative of an invalid internal condition. 
282 4 if NOT .STATUS 

58 4 THEN 


RM3SPOSSEQ i} 6 1984 56:09 AX-11 Bliss-32 V4.0-742 2 4 

nad - $ $ - Ss a 7 me 
v04-000 RMSPOS_SEQ 12-Sep-19 4 93:38: 4 LRMS.SRC RMSPOSSEQ.832;1 oe 3 

ore c « STATUS<0,16> EQL RMSERR(RNF ) 
gs RETURN RMSERR(BUG) 
RETURN .STATUS; 
END; 
END; 


If RMS is positioning by primary key of reference then all RMS has to do 
is set up the next record List context for this record, and return 


' 
: ; success. 
8 if .1DX_DFNCIDXSB_KEYREF] EQL 0 
99 THEN 
00 BEGIN 
01 IRABLIRB$W_RFA_ID]_ = IRC$_ID(REC_ADDR); 
4 IRABLIRBSL-RFA-VBNJ = .BBCOCKC.IRABLIRBSL_CURBDBI, BDBSL_VBNIJ; 
0 BBLOCKC. IRABCIRBSL_CURBDBJ, BDB$V_PRM] = T; 
04 RETURN RMSSUC() 
05 END 
! If RMS is positioning by means of an alternate key, it still must 
! position to the array element pointing to the non-deleted primary data 
record to be returned. 
ELSE 
BEGIN 
LOCAL 
STATUS; 
STATUS = 1; 


' Search all SIDRs having the same key as the SIDR RMS has positioned 
!' to until the primary data record to be returned has been found, or 
! until there are no more SIDRs with this key value. 


1 
WHILE .STATUS 
DO 


BEGIN 
RABCIRBSV_SRCHGE] = 0; 


a ee ee ee eee ee ee eee 
NO PAEAAAAAAAAAAAA AAO PARAEARAAPAAAAAAAA AA AAAAAAO AAO 
SS J Se G0 G0 Go Go Go Gv 00 00 OP = ad Sd Sd Sd WU Wd Wd SUR eR OR RP a ae Be Be Bee 
MEN OC ODODNAUES WD 5 OO NAUEWN $$ O ODNAUS WR OOONS NEW OOONIO 
PEPPER PEPE EEE FE FANNIN ANNI WAIANAE AAI NIAID IPIPINIPINPUNINIWNI BE UIP ANOAON 


Be Se Ge Se Se Be Se Se Se Se Se Se Se Se Be Se Ge Ge Se Ge Ge FH Ge Be Se Ge Ge Se Ge Gs oe we Ge SH Se Se Se Se Se Se Se Se Se Ss ee Ge FHSS Se Se Se Ge Se Oe Ge eeee 


I 

IRABCIRBSV_PRM) = 1; 
699 ' 1? RMS has successfully positioned to a non-deleted primary data 
630 i record, return success 
652 9 iF STATUS = RMSSEARCH_SIDR() 
63 9 THEN 
ose > RETURN .STATUS; 
636 9 ! If RMS was unable to find a non-deleted orinery data record with 
637 9 ' an alternate key with the same value as the SIDR RMS has 
638 98 ! positioned to, then move onto the next SIDR with a key greater 
273 +4 } then that of the current SIOR. 
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3; 1641 1701 5 IF .STATUS<O, 16> EQL RMSERR(RNF) 
3 1006 17 ¢ 4 THEN 
3 1646 17 BEG! 
3 16446 1704 I RABLIRB V_SRCHGE] = 
; 1645 1205 STATUS = SHASC SEARCH *REEQ: 
3 1809 1709 ! If RMS is unable to find a SIDR on a greater or equal search 
: 1648 1708 : ! then this can only be because it has reached the 
; 1003 A 2 end-of-file, and so return the appropriate status. 
3; 1651 1711 6 IF .STATUS<O, 16> EQL RMSERR(RNF) 
3 1928 \7i¢ 5 THEN 
; 165 17135 6 STATUS = RMSERR(EOF) 
3 1654 1714 6 
3: 1655 1715 6 ! Otherwise continue the search for a non-deleted gcieery data 
>: 1656 1716 6 ' record with the first array element of the next SIDR. 
3: 1657 1717 6 ! 
; 1658 1718 5 ELSE 
3: 1659 1719 5 IRABCIRB$W_SAVE_POS] = 0; 
3; 1660 1720 4 D; 
3 1661 1721 4 
5 1068 \is¢ END; 
3: 166 172 
3 1664 1724 RETURN .STATUS; 
3: 1665 1725 3 
3: 1666 1726 § END; 
3: 1667 1727 
3; 1668 1728 #1 END; ! { end of routine } 
34 BB 00000 RMSPOS_SEQ:: 
PUSHR #*M<R2,R4,R5> 
41 AY 94 00002 CLRB 65( 1RAB) 
42 A9 B4 00005 CLRW 66(IRAB) 
00A8 C9 D5 00008 TSTL 168( IRAB) 
04 12 0000C BNEQ 1$ 
OOAC c9 OD 43 TSTL 172( I RAB) 
03 13 00012 1$ BEQL 2$ 
009A 31 00014 BRwW 15$ 
42 ag 40  =8F 00017 2$ BISB2 #64, 66(IRAB) 
00996 Baeie BSBW RMSCSEARCH_TREE 
OA E8 OOO1F BLBS STATUS, 4$ 
8282 =s«BF 50 BI 00 $ CMPW TATUS, #33458 
sf 3 000 BEQL $ 
0288 3 0029 3$: BRwW $$ 
52 20 Ad 002C 4$: MOVAB (RI), R2 
20 62 DO 00030 5$: MOVL  (R2), RO 
5 18 «OA p 99 MOVL g4 (RO), BKT_ADDR 
21 =A TSTB 3(1DX_DFN) 
6; 1 O3A BNEQ 6$ 
06 66 : E 5 BBS #3, (REC apoR? 7$ 
OE 04 =A BI 40 68: CMPW 4(BKT_ADBR), #14 
59 1A 44 BGTRU 137 
OF OD AS €9 46 7%: BLBC 1 eg 9$ 


roe 
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M 16 
RM3POSSEQ 16-Sep-1984 01:56:09 AX-11 Bliss-32 V4.0-74 P 
VOee000 RMSPOS_SEQ 19-808-1 3b 93:39:92 RMS. SREIRMEPOSSEO 032, ese (3 
9 11 001C1 BRB 38$ ; 

ref x 13 35$:  BSBW § RMSCHECK_RRV : 1508 
50 €£ 1¢6 BLBS RO, 37$ : 

AJ 00 O001C MOVL ; (1RAB), BDB + 1515 

AD 04 001CD CLRL (IRAB) ; | 

43 ps 1D CLRL =(SP) : | 
009 G 0 O10 BSBW RMSRLSBKT : 

4 (0 001D ADDL2 #4, SP : 

68 11 00108 368: BRB 46 + 151 
EF OO1DA 37$:  EXTZV #3, #1, S(IRAB), -(SP) + 153 

of b O1E0 MCOML (SP) : 

FC Ole BSBW RMSFIND_NONDEL : 

4 CO 00166 ADDL2 : 
0 €9 O01E9 LBC STATUS, 48$ : | 

01 £1 OO1EC 38$: BBC #1, FLAG, 49$ > 1538| 

A? E8 OO1F BLBS_ 28(IDX_DFN), 418 > 1550) 

10 88 001F4 BISB2 #16, 68(IRAB) : 1557) 
00006 30 001F8 BSBW  - RMSCSEARCH_TREE : 1558 

50 Es OO1F BLBS TATUS, 398 : 

0080 31 OO1FE BRW : 
01 bp 00201 39$:  PUSHL #1 + 1564 | 

FC40 30 00203 BSBW = RMSFIND_NONDEL : 

04 C0 00 06 ADDL2 #4, : | 

50 €8 0020 BLBS STATUS, 49$ : 

6€ 11 .0020C 40$: BRB : 

00006 30 O020E 41$: BSBW §RMSCSEARCH_TREE + 1582 
50 £9 00211 BLBC ~=E_—s«aRO, ; | 
01 b0 00214 MOVL #1. STATUS + 1607) 

FCO? 30 00217 42$:  BSBW RMS.CHECK_RRV : 1617 
50 £9 OO21A BLBC = RO, 43S : 
7E D4 90210 CLRL = = (§P) ; : 1620 

FC24 30 O021F SBW  - RMSF IND_NONDEL : | 
04 CO 90828 ADDL2 #4, SP ; 

50 £8 008 BLBS STATUS, 44$ : 

52 11 00228 BRB 52$ : 
00006 30 0022A 43$: BSBW = RMSGETNEXT_REC > 1632. 
00006 30 0022D BSBW = RMSCSEARCH~TREE > 1634) 

50 dO 00 9 MOVL 0 : 

54 £9 0023 BLBC STATUS, 45$ : 

DF 11 00 BRB 4 ; | 

54 £8 00238 44$:  BLBS STATUS, 49$ + 1642 | 

54 Bl 00 45$:  CMPW STATUS. #33458 + 1644, 

07 12 00240 BNEQ 4 : 

8F 3¢ 0 4g 46$:  MOVZWL #33844, RO + 1648 

6B 11 0024 BRB 563 ; 

54 DO 00249 47$:  MOVL STATUS, RO ; 

66 11 0024C 48$: BRB $ : | 

A? 95 0024E 49$:  TSTB (1DX_DFN) : 1658 

2B 12 00251 BNEQ 4 ; 

A 91 00 ; CMPB 183 (1FAB) #3 > 1661. 
6 1€ 00 BGEQU 50$ : 

A6 9A 0025A MOVZBL 1(REC_ADDR), RO : 

04 1 : BRB 51$ : 

A 66 508 MOVZWL 1(REC_ADDR), RO : 

50 8B i$ MOV RO, 1T6(IRAB) : 

Ad D 68 MOVL 32CIRAB), RO > 1662. 

AO D 6C MOVL 28(RO), 112(IRAB) ; 
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CON, PIC,ALIGN(2) 
Processing 
Time 

00:00.4 


REL, 


Pages 
Mapped 
154 


GBL, 


Attributes 
EXE,NOSHR, 


Percent 


RD , 

mbols -------- 
ded 
86 


y 
Loa 


RMSRMS3 + O1DF 
wcoceseee § 
Total 

3109 


PSECT SUMMARY 
1774 NOVEC,NOWRT, 


Bytes 
‘Library Statistics 


Routine Base: 


695 bytes, 
6 


File 
~$255$DUA28: (RMS .OBJJRMS.L32;1 


RMSRMS5 
Information: 


; Routine Size: 
3; Warnings: 


* 
i 


; Size: 


RMSPOS_SEQ 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3POSSEQ/OBJ=OBJ$:RM3POSSEQ MSRC$:RM3POSSEQ/UPDATE=(ENHS$:RM3POSSEQ) 


1174 coge + 0 data bytes 
Run Time: 00:33.5 
Elapsed Time: 01:04.6 

Lines/CPU Min: e408 
Lexemes/CPU-Min: 15804 

nme | Used: 274 pages 

Compilation Complete 
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